home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / DLGHEWN.PRG < prev    next >
Text File  |  1993-05-25  |  524b  |  21 lines
  1. FUNCTION DlgHeWn
  2. PARAMETER p__val
  3.   PRIVATE lWhenOk
  4.   lWhenOk = .T.
  5.   DO CASE
  6.     CASE cDialog = "DLGCONT" .AND. p__val = "BT_UPLVL"
  7.       IF gnLevel = 3
  8.         lWhenOk = .F.
  9.       ENDIF
  10.     CASE cDialog = "DLGCONT" .AND. p__val = "LB_CONT_1"
  11.       DO CASE
  12.         CASE gnLevel = 3
  13.           DO TButton WITH WM_PAINT, BN_DISABLE, GetId( "BT_UPLVL" )
  14.         CASE gnLevel = 2
  15.           DO TButton WITH WM_PAINT, BN_PAINT, GetId( "BT_UPLVL" )
  16.       ENDCASE
  17.   ENDCASE
  18.  
  19. RETURN( lWhenOk )
  20. *-- EOF: DlgHeWn()
  21.